home *** CD-ROM | disk | FTP | other *** search
/ Get On The Internet / Get on the Internet.iso / tutorial / ptwin / les2 / les2.cmd < prev   
Encoding:
Text File  |  1995-03-01  |  15.4 KB  |  516 lines
  1. init ;
  2.         winpos 0 0 ;
  3.         winsize 640 480 ;
  4.         config __development 0 ;
  5.         config __removeclear 0 ;
  6.         config __fullscreen 1 ;
  7.         config __tipespeed 15 ;
  8.         config clock 302 ;
  9.         config __lessontitle "Lesson 2 Menu" ;
  10. endinit ;
  11.  
  12. function "map1" ;
  13.         clearmapscreen ;
  14.         mapscreen 0 40 40 40 text2 14 440 "Click Here For Help" ;
  15.         mapscreen 40 40 40 40 text2 14 440 "Read Electronic Mail" ;
  16.         mapscreen 80 40 40 40 text2 14 440 "Send Electronic Mail" ;
  17.         mapscreen 120 40 40 40 text2 14 440 "Browse the World Wide Web - Global Hypertext Information" ;
  18.         mapscreen 160 40 40 40 text2 14 440 "Browse Gopher - Global Information Menus" ;
  19.         mapscreen 200 40 40 40 text2 14 440 "Read Netnews Newsgroups" ;
  20.         mapscreen 240 40 40 40 text2 14 440 "Post to Netnews Newsgroups" ;
  21.         mapscreen 280 40 40 40 text2 14 440 "FTP File Transfer" ;
  22.         mapscreen 320 40 40 40 text2 14 440 "Telnet - Log Into Remote Computers" ;
  23.         mapscreen 360 40 40 40 text2 14 440 "Finger - Look Up User Information On Internet Systems" ;
  24.         mapscreen 400 40 40 40 text2 14 440 "IRC - Chat With Internet Users All Over The World" ;
  25.         enablescreenmap ;
  26. endfunction ;
  27.  
  28. function "movecursor" ;
  29.         if = __silentmode 1 ;
  30.         setcursor a_xdest a_ydest ;
  31.         goto "movedone" ;
  32.         endif ;
  33.         getcursor ;
  34.         config l_xpos __curxpos ;
  35.         config l_ypos __curypos ;
  36.         config l_xmove 1 ;
  37.         config l_ymove 1 ;
  38.         label "movenotdone" ;
  39.         if < l_xpos a_xdest ;
  40.         config l_xpos + l_xpos l_xmove ;
  41.         endif ;
  42.         if < l_ypos a_ydest ;
  43.         config l_ypos + l_ypos l_ymove ;
  44.         endif ;
  45.         if > l_xpos a_xdest ;
  46.         config l_xpos - l_xpos l_xmove ;
  47.         endif ;
  48.         if > l_ypos a_ydest ;
  49.         config l_ypos - l_ypos l_ymove ;
  50.         endif ;
  51.         setcursor l_xpos l_ypos ;
  52.         sleep 1 ;
  53.         if and = l_xpos a_xdest = l_ypos a_ydest ;
  54.         goto "movedone" ;
  55.         endif ;
  56.         goto "movenotdone" ;
  57.         label "movedone" ;
  58. endfunction ;
  59.  
  60. segment "main" 0 ;
  61.     chainseg "seg_00" ;
  62. endseg ;
  63.  
  64. segment "seg_00" 1 ;
  65.         menuitem "Lesson Introduction" ;
  66.         startimg "tr.pcf" 0 0 ;
  67.         config __textcolor darkcyan ;
  68.         text "tx0a" 266 39 298 22 "~f05Lesson 2:  Connecting to the Internet" ;
  69.         config __textcolor darkred ;
  70.         text "tx0" 356 65 118 34 "~f27Welcome" ;
  71.         config __textcolor medblue ;
  72.         text "tx1" 244 139 279 33 "~f26In this lesson you will:" ;
  73.         startbullet 219 180 379 167 ;
  74.         bullet "b1" 1 0 "Learn three options for connecting to the Internet" ;
  75.         bullet "b3" 1 6 "Access the Internet using Netcruiser" ;
  76.         bullet "b4" 1 12 "Examine Network Addresses" ;
  77.         startavi "l2s.avi" "jnk1.vcw" 15 78 ;
  78.         status "Click to continue..." ;
  79.         anykeymouse 17 ;
  80.         status ;
  81.         clrscr ;
  82.         endimg ;
  83.         endavi ;
  84.     chainseg "seg_01" ;
  85. endseg ;
  86.  
  87. segment "seg_01" 1 ;
  88.         menuitem "Options for Connecting to the Internet" ;
  89.         startimg "tr.pcf" 0 0 ;
  90.         nextimg ;
  91.         config __textcolor white ;
  92.         text "tx0" 89 41 463 26 "~f26There are three basic ways to gain access to the Internet:" ;
  93.         config __dopalette 1 ;
  94.         config __bitmapontrans 0 ;
  95.         bitmap "bit1" "internet.dll" "COMP1" 11 140 ;
  96.         config __dopalette 0 ;
  97.         bitmap "bit0a" "internet.dll" "EARTHN16" 504 84 ;
  98.         bitmap "bit0b" "internet.dll" "EARTHN16" 504 200 ;
  99.         bitmap "bit0c" "internet.dll" "EARTHN16" 504 326 ;
  100.         config __boxcolor medblue ;
  101.         box "bx1" 11 140 260 200 ;
  102.         startaud "net_2_1.wav" "net_2_1.vcw" 0 ;
  103.     frame ;
  104.         textbox "tb1" 296 85 173 71 "~c011.  ~c00You can directly connect your computer to the Internet." ;
  105.     frame ;
  106.         textbox "tb2" 296 195 173 85 "~c012.  ~c00You can get a user account on a computer that has access to the Internet." ;
  107.     frame ;
  108.         textbox "tb3" 296 318 173 85 "~c013.  ~c00You can buy an account with an online service, such as CompuServe." ;
  109.     frame ;
  110.         pauseaud ;
  111.         status "Click to continue..." ;
  112.         anykeymouse 17 ;
  113.         status ;
  114.         clrscr ;
  115.         bitmap "bit4" "internet.dll" "NETCRUIS" 145 48 ;
  116.         box "bx4" 145 48 348 81 ;
  117.         startbullet 125 155 390 248 ;
  118.         config __bulletcolor darkred ;
  119.         config __bullettextcolor black ;
  120.         bullet "b5" 1 0 "We're going to use Netcruiser during this course." ;
  121.         resumeaud ;
  122.     frame ;
  123.         bullet "b6" 1 4 "Netcruiser is an online service designed exclusively for accessing the Internet." ;
  124.     frame ;
  125.         bullet "b6a" 1 11 "To sign up with Netcruiser, you need to:" ;
  126.         bullet "b6b" 2 14 "Get Netcruiser software (free)" ;
  127.         bullet "b6c" 2 17 "Get a modem" ;
  128.         bullet "b6d" 2 20 "Install Netcruiser software" ;
  129.     frame ;
  130.         bullet "b7" 1 25 "Connect fee is $20 per month, which includes 40 hours connect time per month during prime time and unlimited access during off-hours." ;
  131.     frame ;
  132.         pauseaud ;
  133.         status "Click to continue..." ;
  134.         anykeymouse 17 ;
  135.         status ;
  136.         clrscr ;
  137.         endimg ;
  138.         endaud ;
  139.     chainseg "seg_02" ;
  140. endseg ;
  141.  
  142. segment "seg_02" 1 ;
  143.         menuitem "Using Netcruiser to Connect to the Internet" ;
  144.         startimg "l2_seg2a.pcf" 0 0 ;
  145.         startaud "net_2_2.wav" "net_2_2.vcw" 0 ;
  146.     frame ;
  147.         textbox "tb1" 205 328 230 56 "What you see is just a simulation of WinTutor's computer." ;
  148.     frame ;
  149.         remove "tb1" ;
  150.     frame ;
  151.         pauseaud ;
  152.         status "Double-click the \"NETCOM\" group icon." ;
  153.         arrow "a1" 280 294 1 ;
  154.         imouse 4 253 240 57 54 ;
  155.         remove "a1" ;
  156.         status ;
  157.         nextimg ;
  158.         resumeaud ;
  159.     frame ;
  160.         pauseaud ;
  161.         status "Double-click the \"NetCruiser\" icon." ;
  162.         arrow "a2" 275 302 1 ;
  163.         imouse 4 245 252 60 51 ;
  164.         remove "a2" ;
  165.         status ;
  166.         endimg ;
  167.         startimg "l2_seg2b.pcf" 0 0 ;
  168.         showcaret 261 317 ;
  169.         resumeaud ;
  170.     frame ;
  171.         arrow "a3" 266 324 4 ;
  172.     frame ;
  173.         remove "a3" ;
  174.     frame ;
  175.         pauseaud ;
  176.         status "Please wait..." ;
  177.         nextimg ;
  178.         config __rectcolor white ;
  179.         rect "r1" 261 317 10 16 ;
  180.         text "tx1" 261 317 10 20 "*" ;
  181.         showcaret 267 317 ;
  182.         sleep 1 ;
  183.         tipe "tp1" 267 317 159 20 "*******" ;
  184.         status ;
  185.         resumeaud ;
  186.     frame ;
  187.         pauseaud ;
  188.         status "Click the \"Start Login\" button." ;
  189.         arrow "a6" 269 363 4 ;
  190.         imouse 1 185 352 79 24 ;
  191.         status ;
  192.         remove "a6" ;
  193.         hidecaret ;
  194.         remove "tx1" "tp1" "r1" ;
  195.         nextimg ;
  196.         resumeaud ;
  197.     frame ;
  198.         arrow "a7" 348 142 7 ;
  199.     frame ;
  200.         pauseaud ;
  201.         status "Please wait..." ;
  202.         nextimg ;
  203.         sleep 200 ;
  204.         nextimg ;
  205.         status ;
  206.         resumeaud ;
  207.     frame ;
  208.         nextimg ;
  209.     frame ;
  210.         pauseaud ;
  211.         status "Please wait..." ;
  212.         nextimg ;
  213.         sleep 200 ;
  214.         nextimg ;
  215.         sleep 200 ;
  216.         nextimg ;
  217.         remove "a7" ;
  218.         status ;
  219.         resumeaud ;
  220.     frame ;
  221.         pauseaud ;
  222.         status "Click the \"OK\" button." ;
  223.         arrow "a12" 566 35 1 ;
  224.         imouse 1 539 5 55 24 ;
  225.         status ;
  226.         remove "a12" ;
  227.         nextimg ;
  228.         call "map1" ;
  229.         resumeaud ;
  230.     frame ;
  231.         arrow "a13" 373 27 4 ;
  232.         config __textcolor darkred ;
  233.         text "tx13" 426 19 207 17 "NetCruiser's Menu Bar" ;
  234.     frame ;
  235.         pauseaud ;
  236.         status "Click the \"Internet\" menu option." ;
  237.         remove "a13" "tx13" ;
  238.         box "bx14" 130 18 58 19 ;
  239.         imouse 1 129 19 62 19 ;
  240.         status ;
  241.         remove "bx14" ;
  242.         nextimg ;
  243.         disablescreenmap ;
  244.         resumeaud ;
  245.     frame ;
  246.         pauseaud ;
  247.         status "Click the \"Internet\" menu option again." ;
  248.         imouse 1 129 19 62 18 ;
  249.         status ;
  250.         nextimg ;
  251.         enablescreenmap ;
  252.         resumeaud ;
  253.     frame ;
  254.         menuitem "Netcruiser Speed Buttons" ;
  255.         arrow "a16" 444 58 4 ;
  256.         text "tx16" 498 49 134 20 "Speed Buttons" ;
  257.     frame ;
  258.         remove "a16" "tx16" ;
  259.         arrow "a17" 303 447 4 ;
  260.         setcursor 71 167 ;
  261.     frame ;
  262.         pauseaud ;
  263.         remove "a17" ;
  264.         config a_xdest 61 ;
  265.         config a_ydest 67 ;
  266.         call "movecursor" ;
  267.         resumeaud ;
  268.     frame ;
  269.         arrow "a19" 59 80 1 ;
  270.     frame ;
  271.         remove "a19" ;
  272.     frame ;
  273.         pauseaud ;
  274.         status "Move your mouse over the buttons.  Click to continue." ;
  275.         anykeymouse 17 ;
  276.         status ;
  277.         resumeaud ;
  278.     frame ;
  279.         pauseaud ;
  280.         menuitem "Disconnecting from the Internet" ;
  281.         status "Click the \"File\" menu option." ;
  282.         box "bx22" 0 19 39 18 ;
  283.         imouse 1 0 19 40 19 ;
  284.         status ;
  285.         remove "bx22" ;
  286.         nextimg ;
  287.         disablescreenmap ;
  288.         resumeaud ;
  289.     frame ;
  290.         pauseaud ;
  291.         status "Click the \"Exit\" command." ;
  292.         arrow "a23" 48 100 4 ;
  293.         imouse 1 0 91 189 19 ;
  294.         status ;
  295.         remove "a23" ;
  296.         endimg ;
  297.         startimg "l2_seg2a.pcf" 0 0 ;
  298.         nextimg ;
  299.         resumeaud ;
  300.     frame ;
  301.         clrscr ;
  302.         endimg ;
  303.         endaud ;
  304.     chainseg "seg_03" ;
  305. endseg ;
  306.  
  307. segment "seg_03" 1 ;
  308.         menuitem "Network Addresses" ;
  309.         startimg "blackbd.pcf" 0 0 ;
  310.         config __textcolor darkcyan ;
  311.         text "tx0" 245 75 219 31 "~f26Network Addresses" ;
  312.         startaud "net_2_3.wav" "net_2_3.vcw" 0 ;
  313.     frame ;
  314.         startbullet 80 100 484 270 ;
  315.         config __bullettextcolor white ;
  316.         bullet "b6" 1 0 "A network address represents a specific location in the network." ;
  317.     frame ;
  318.         bullet "b2" 1 4 "To send an email message to someone, you need to know the person's email address." ;
  319.     frame ;
  320.         bullet "b3" 1 11 "To download a file, you need to know the file's network address ." ;
  321.     frame ;
  322.         config __textcolor white ;
  323.         text "tx4" 200 236 324 42 "~f06paulpara@ix.netcom.com" ;
  324.     frame ;
  325.         config __textcolor darkred ;
  326.         text "tx5" 200 252 85 22 "--------------------" ;
  327.         config __arrowtoken 2 ;
  328.         arrow "a5" 240 267 1 ;
  329.         config __textfont 3 ;
  330.         text "tx5b" 204 292 76 20 "User Name" ;
  331.         touch "tx4" ;
  332.     frame ;
  333.         config __textcolor darkcyan ;
  334.         text "tx6" 302 252 187 25 "----------------------------------" ;
  335.         config __arrowcolor darkcyan ;
  336.         arrow "a6" 340 267 1 ;
  337.         config __textfont 3 ;
  338.         text "tx6b" 300 292 125 20 "Computer System" ;
  339.         touch "tx4" ;
  340.     frame ;
  341.         text "tx7" 300 308 102 28 "(Host Name)" ;
  342.     frame ;
  343.         config __boxcolor darkgreen ;
  344.         box "bx8" 394 237 46 22 ;
  345.         touch "tx4" ;
  346.         config __arrowcolor darkgreen ;
  347.         arrow "a9" 442 247 4 ;
  348.         config __textcolor darkgreen ;
  349.         text "tx9" 465 239 59 28 "Domain" ;
  350.     frame ;
  351.         text "tx10" 445 258 134 21 "\"com\" = commercial" ;
  352.     frame ;
  353.         box "bx11" 320 237 71 22 ;
  354.         arrow "a11" 353 236 3 ;
  355.         text "tx11" 322 184 121 36 "Institution owning the computer" ;
  356.         touch "b3" "tx4" ;
  357.     frame ;
  358.         box "bx12" 299 237 19 22 ;
  359.         arrow "a12" 304 233 6 ;
  360.         text "tx12" 215 184 97 36 "Area within the institution" ;
  361.         touch "b3" "tx4" ;
  362.     frame ;
  363.         config __textcolor white ;
  364.         text "txpam" 201 332 284 26 "pgilbert@bvsc.k12.co.us" ;
  365.     frame ;
  366.         pauseaud ;
  367.         status "Click to continue..." ;
  368.         anykeymouse 17 ;
  369.         status ;
  370.         clrscr ;
  371.         endimg ;
  372.         endaud ;
  373.     chainseg "review" ;
  374. endseg ;
  375.  
  376. segment "review" 1 ;
  377.         menuitem "Lesson Review" ;
  378.         startimg "tr.pcf" 0 0 ;
  379.         config __textcolor darkcyan ;
  380.         text "tx0a" 271 39 325 21 "~f05Lesson 2:  Connecting to the Internet" ;
  381.         config __textcolor darkred ;
  382.         text "tx0" 337 69 120 33 "~f27Review" ;
  383.         config __textcolor medblue ;
  384.         text "tx1" 244 139 279 33 "~f26In this lesson you learned:" ;
  385.         startbullet 219 180 379 167 ;
  386.         bullet "b1" 1 0 "Three options for connecting to the Internet" ;
  387.         bullet "b3" 1 6 "How to access the Internet using Netcruiser" ;
  388.         bullet "b4" 1 12 "About Network Addresses" ;
  389.         startaud "net_2_r.wav" "net_2_r.vcw" 0 ;
  390.     frame ;
  391.         pauseaud ;
  392.         status "Click to begin the Review." ;
  393.         anykeymouse 17 ;
  394.         status ;
  395.         clrscr ;
  396.         nextimg ;
  397.         config __textcolor white ;
  398.         text "tx0" 89 41 463 26 "~f26There are three basic ways to gain access to the Internet:" ;
  399.         config __dopalette 0;
  400.         config __bitmapontrans 0 ;
  401.         bitmap "bit0a" "internet.dll" "EARTHN16" 504 84 ;
  402.         bitmap "bit0b" "internet.dll" "EARTHN16" 504 200 ;
  403.         bitmap "bit0c" "internet.dll" "EARTHN16" 504 326 ;
  404.         config __dopalette 1 ;
  405.         bitmap "bit1" "internet.dll" "COMP1" 11 140 ;
  406.         config __boxcolor medblue ;
  407.         box "bx1" 11 140 260 200 ;
  408.         textbox "tb1" 296 85 173 71 "~c011.  ~c00You can directly connect your computer to the Internet." ;
  409.         textbox "tb2" 296 195 173 85 "~c012.  ~c00You can get a user account on a computer that has access to the Internet." ;
  410.         textbox "tb3" 296 318 173 85 "~c013.  ~c00You can buy an account with an online service, such as CompuServe." ;
  411.         status "Click to continue..." ;
  412.         anykeymouse 17 ;
  413.         clrscr ;
  414.         endimg ;
  415.         startimg "l2_seg2b.pcf" 0 0 ;
  416.         nextimg ;
  417.         nextimg ;
  418.         textbox "tb3" 118 39 404 104 "To access Netcruiser, you: ~n~n~c011.  ~c00Double-click the Netcruiser icon from the NETCOM group. ~n~c012.  ~c00Type in your password. ~n~c013.  ~c00Click the \"Start Login\" button." ;
  419.         anykeymouse 17 ;
  420.         clrscr ;
  421.         nextimg ;
  422.         nextimg ;
  423.         nextimg ;
  424.         nextimg ;
  425.         nextimg ;
  426.         nextimg ;
  427.         nextimg ;
  428.         arrow "a13" 373 27 4 ;
  429.         config __textcolor darkred ;
  430.         text "tx13" 426 19 207 17 "NetCruiser's Menu Bar" ;
  431.         arrow "a16" 444 58 4 ;
  432.         text "tx16" 498 49 134 20 "Speed Buttons" ;
  433.         textbox "tb4" 2 94 185 75 "The Netcruiser ~c01Menu Bar ~c00contains commands used to work with Netcruiser." ;
  434.         textbox "tb4b" 438 95 201 72 "~c01Speed Buttons ~c00act as shortcuts to some of the commands in the Menu Bar." ;
  435.         textbox "tb4c" 438 178 202 88 "You can move the mouse over a Speed Button and read its description in the Netcruiser ~c01Status Bar." ;
  436.         call "map1" ;
  437.         anykeymouse 17 ;
  438.         clrscr ;
  439.         nextimg ;
  440.         nextimg ;
  441.         nextimg ;
  442.         textbox "tb5" 208 152 224 74 "To disconnect from the Internet, you can choose the ~c01Exit ~c00command from the File menu." ;
  443.         textbox "tb5a" 208 252 224 74 "Disconnecting automatically closes Netcruiser and returns you to the Program Manager." ;
  444.         disablescreenmap ;
  445.         anykeymouse 17 ;
  446.         clrscr ;
  447.         endimg ;
  448.         startimg "blackbd.pcf" 0 0 ;
  449.         config __textcolor darkcyan ;
  450.         text "tx0" 245 75 219 31 "~f26Network Addresses" ;
  451.         startbullet 80 100 484 270 ;
  452.         config __bullettextcolor white ;
  453.         bullet "b6" 1 0 "A network address represents a specific location in the network." ;
  454.         bullet "b2" 1 4 "To send an email message to someone, you need to know the person's email address." ;
  455.         bullet "b3" 1 11 "To download a file, you need to know the file's network address ." ;
  456.         config __textcolor white ;
  457.         text "tx4" 200 236 324 42 "~f06paulpara@ix.netcom.com" ;
  458.         config __textcolor darkred ;
  459.         text "tx5" 200 252 85 22 "--------------------" ;
  460.         config __arrowtoken 2 ;
  461.         arrow "a5" 240 267 1 ;
  462.         config __textfont 3 ;
  463.         text "tx5b" 204 292 76 20 "User Name" ;
  464.         config __textcolor darkcyan ;
  465.         text "tx6" 302 252 187 25 "----------------------------------" ;
  466.         config __arrowcolor darkcyan ;
  467.         arrow "a6" 340 267 1 ;
  468.         config __textfont 3 ;
  469.         text "tx6b" 300 292 125 20 "Computer System" ;
  470.         text "tx7" 300 308 102 28 "(Host Name)" ;
  471.         config __boxcolor darkgreen ;
  472.         box "bx8" 394 237 46 22 ;
  473.         config __arrowcolor darkgreen ;
  474.         arrow "a9" 442 247 4 ;
  475.         config __textcolor darkgreen ;
  476.         text "tx9" 465 239 59 28 "Domain" ;
  477.         text "tx10" 445 258 134 21 "\"com\" = commercial" ;
  478.         box "bx11" 320 237 71 22 ;
  479.         arrow "a11" 353 236 3 ;
  480.         text "tx11" 322 184 121 36 "Institution owning the computer" ;
  481.         box "bx12" 299 237 19 22 ;
  482.         arrow "a12" 304 233 6 ;
  483.         text "tx12" 215 184 97 36 "Area within the institution" ;
  484.         anykeymouse 17 ;
  485.         status ;
  486.         clrscr ;
  487.         endimg ;
  488.         endaud ;
  489.     chainseg "seg_end" ;
  490. endseg ;
  491.  
  492. segment "seg_end" 1 ;
  493.         menuitem "Lesson Conclusion" ;
  494.         startimg "tr.pcf" 0 0 ;
  495.         config __textcolor darkcyan ;
  496.         text "tx0a" 266 39 298 22 "~f05Lesson 2:  Connecting to the Internet" ;
  497.         config __textcolor darkred ;
  498.         text "tx0" 340 65 150 31 "~f27Conclusion" ;
  499.         startbullet 219 120 365 167 ;
  500.         bullet "b0" 1 0 "If you are unsure about any of the material covered, you should take some or all of the lesson again." ;
  501.         bullet "b1" 1 11 "In Lesson 3 you'll learn how to send and receive electronic mail." ;
  502.         config __bitmaponfx 15 ;
  503.         config __bitmapongrain 1000 ;
  504.         config __bitmaponsubgrain 1000 ;
  505.         config __bitmapondelay 1 ;
  506.         config __bitmapontrans 1 ;
  507.         config __bitmapontcolor green ;
  508.         bitmap "bit0" "internet.dll" "WIZ" 321 245 ;
  509.         startavi "l2e.avi" "jnk1.vcw" 15 78 ;
  510.         status "Click to return to the Course Menu" ;
  511.         anykeymouse 17 ;
  512.         clrscr ;
  513.         endimg ;
  514. endseg ;
  515.  
  516.